From: Jim Blandy <jimb@redhat.com>
Date: Thu, 25 Mar 1993 04:37:38 +0000 (+0000)
Subject: * x-win.el: Update copyright to 1993.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96694
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c8c72d6b4b54800d6efc9bca914eb0a1ffe12e8c;p=emacs.git

* x-win.el: Update copyright to 1993.

	* x-win.el: Bind [M-next] to advertised-scroll-other-window instead of
	scroll-other-window, and then make advertised-scroll-other-window
	an alias for scroll-other-window.

	* term/x-win.el: Require select.el.
	(x-select-text): Update call to x-set-cut-buffer.
	Put `PRIMARY' and `CLIPBOARD' in upper case.
	(x-cut-buffer-or-selection-value): Put `PRIMARY' in upper case.
---

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 988c0b3d28f..a088a265b29 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -3,7 +3,7 @@
 ;; Author: FSF
 ;; Keywords: terminals
 
-;; Copyright (C) 1990 Free Software Foundation, Inc.
+;; Copyright (C) 1993 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
@@ -432,6 +432,9 @@ This returns ARGS with the arguments that have been processed removed."
 (define-key global-map [down] 'next-line)
 (define-key global-map [prior] 'scroll-down)
 (define-key global-map [next] 'scroll-up)
+;; We use a different symbol to prevent
+;; doc strings from listing M-next as the preferred way to do this.
+(fset 'advertised-scroll-other-window 'scroll-other-window)
 (define-key global-map [M-next] 'scroll-other-window)
 (define-key global-map [begin] 'beginning-of-buffer)
 (define-key global-map [end] 'end-of-buffer)
@@ -478,9 +481,9 @@ This returns ARGS with the arguments that have been processed removed."
 ;;; Also, set the value of X cut buffer 0, for backward compatibility
 ;;; with older X applications.
 (defun x-select-text (text)
-  (x-set-cut-buffer 0 text)
-  (x-set-selection 'clipboard text)
-  (x-set-selection 'primary text)
+  (x-set-cut-buffer text)
+  (x-set-selection 'CLIPBOARD text)
+  (x-set-selection 'PRIMARY text)
   (setq x-last-selected-text text))
 
 ;;; Return the value of the current X selection.  For compatibility
@@ -493,7 +496,7 @@ This returns ARGS with the arguments that have been processed removed."
     ;; as if they were unset.
     (setq text (x-get-cut-buffer 0))
     (if (string= text "") (setq text nil))
-    (or text (setq text (x-selection 'primary)))
+    (or text (setq text (x-get-selection 'PRIMARY)))
     (if (string= text "") (setq text nil))
 
     (cond
@@ -518,7 +521,9 @@ This returns ARGS with the arguments that have been processed removed."
 
 (defun x-win-suspend-error ()
   (error "Suspending an emacs running under X makes no sense"))
-(add-hook 'suspend-hooks 'x-win-suspend-error)
+(add-hook 'suspend-hook 'x-win-suspend-error)
+
+(require 'select)
 
 ;;; Arrange for the kill and yank functions to set and check the clipboard.
 (setq interprogram-cut-function 'x-select-text)